
#Region "Summary"
''' -----------------------------------------------------------------------------
''' Project	 : PTT.StationsTracking.Data
''' Class	 : StationsTracking.Data.QueryInvOwner
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' Query Result Single Business Entity
''' </summary>
''' <remarks>
''' Sample of business entity coding
''' </remarks>
''' <history>
''' 	[Generater by Nok]	21/3/2549 15:43:26	Created
''' </history>
''' -----------------------------------------------------------------------------
#End Region

#Region ".NET Framework Class Import"
Imports System
Imports System.Xml.Serialization
Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Collections
#End Region

<Serializable()> _
Public Class QueryInvOwner
#Region "Internal member variables"
    Private _OwnerId As Int16
    Private _OwnerName As String
    Private _OwnerContactPerson As String
    Private _OwnerTelephone As String
    Private _OwnerEmail As String
    Private _OwnerNo As String
    Private _OwnerStreet As String
    Private _OwnerDistrict As String
    Private _OwnerCity As String
    Private _OwnerPotalCode As String
    Private _OwnerStatus As Byte
    Private _ProvinceId As Byte
    Private _InvCarProvinces As QueryInvCarProvinces
#End Region

    Public Sub New()
        _OwnerId = Nothing
        _OwnerName = Nothing
        _OwnerContactPerson = Nothing
        _OwnerTelephone = Nothing
        _OwnerEmail = Nothing
        _OwnerNo = Nothing
        _OwnerStreet = Nothing
        _OwnerDistrict = Nothing
        _OwnerCity = Nothing
        _OwnerPotalCode = Nothing
        _OwnerStatus = Nothing
        _ProvinceId = Nothing
        _InvCarProvinces = Nothing
    End Sub

    Public Sub New(ByVal OwnerId As Int16, _
       ByVal OwnerName As String, _
       ByVal OwnerContactPerson As String, _
       ByVal OwnerTelephone As String, _
       ByVal OwnerEmail As String, _
       ByVal OwnerNo As String, _
       ByVal OwnerStreet As String, _
       ByVal OwnerDistrict As String, _
       ByVal OwnerCity As String, _
       ByVal OwnerPotalCode As String, _
       ByVal OwnerStatus As Byte, _
       ByVal ProvinceId As Byte, _
      Optional ByVal InvCarProvinces As QueryInvCarProvinces = Nothing)
        _OwnerId = OwnerId
        _OwnerName = OwnerName
        _OwnerContactPerson = OwnerContactPerson
        _OwnerTelephone = OwnerTelephone
        _OwnerEmail = OwnerEmail
        _OwnerNo = OwnerNo
        _OwnerStreet = OwnerStreet
        _OwnerDistrict = OwnerDistrict
        _OwnerCity = OwnerCity
        _OwnerPotalCode = OwnerPotalCode
        _OwnerStatus = OwnerStatus
        _ProvinceId = ProvinceId
        _InvCarProvinces = InvCarProvinces
    End Sub

#Region "Property"

    Public Property OwnerId() As Int16
        Get
            Return _OwnerId
        End Get
        Set(ByVal value As Int16)
            _OwnerId = value
        End Set
    End Property


    Public Property OwnerName() As String
        Get
            Return _OwnerName
        End Get
        Set(ByVal value As String)
            _OwnerName = value
        End Set
    End Property


    Public Property OwnerContactPerson() As String
        Get
            Return _OwnerContactPerson
        End Get
        Set(ByVal value As String)
            _OwnerContactPerson = value
        End Set
    End Property


    Public Property OwnerTelephone() As String
        Get
            Return _OwnerTelephone
        End Get
        Set(ByVal value As String)
            _OwnerTelephone = value
        End Set
    End Property


    Public Property OwnerEmail() As String
        Get
            Return _OwnerEmail
        End Get
        Set(ByVal value As String)
            _OwnerEmail = value
        End Set
    End Property


    Public Property OwnerNo() As String
        Get
            Return _OwnerNo
        End Get
        Set(ByVal value As String)
            _OwnerNo = value
        End Set
    End Property


    Public Property OwnerStreet() As String
        Get
            Return _OwnerStreet
        End Get
        Set(ByVal value As String)
            _OwnerStreet = value
        End Set
    End Property


    Public Property OwnerDistrict() As String
        Get
            Return _OwnerDistrict
        End Get
        Set(ByVal value As String)
            _OwnerDistrict = value
        End Set
    End Property


    Public Property OwnerCity() As String
        Get
            Return _OwnerCity
        End Get
        Set(ByVal value As String)
            _OwnerCity = value
        End Set
    End Property


    Public Property OwnerPotalCode() As String
        Get
            Return _OwnerPotalCode
        End Get
        Set(ByVal value As String)
            _OwnerPotalCode = value
        End Set
    End Property


    Public Property OwnerStatus() As Byte
        Get
            Return _OwnerStatus
        End Get
        Set(ByVal value As Byte)
            _OwnerStatus = value
        End Set
    End Property


    Public Property ProvinceId() As Byte
        Get
            Return _ProvinceId
        End Get
        Set(ByVal value As Byte)
            _ProvinceId = value
        End Set
    End Property


    Public Property InvCarProvinces() As QueryInvCarProvinces
        Get
            Return _InvCarProvinces
        End Get
        Set(ByVal value As QueryInvCarProvinces)
            _InvCarProvinces = value
        End Set
    End Property

#End Region
End Class

''' -----------------------------------------------------------------------------
''' Project	 : PTT.StationsTracking.Data
''' Class	 : StationsTracking.Data.QueryInvOwners
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' Collection of query result
''' </summary>
''' <remarks>
''' Sample
''' </remarks>
''' <history>
''' 	[NOK'S Generater]	21/3/2549 15:43:27	Created
''' </history>
''' -----------------------------------------------------------------------------
<Serializable()> _
Public Class QueryInvOwners
    Inherits CollectionBase


    Default Public ReadOnly Property Item(ByVal index As Integer) As QueryInvOwner
        Get
            If (index < 0 Or index >= Me.InnerList.Count) Then
                Throw New Exception("index has to be between 0 and " & (Me.InnerList.Count - 1).ToString())
            Else
                Return CType(Me.InnerList(index), QueryInvOwner)
            End If
        End Get
    End Property

    Public Sub Add(ByVal info As QueryInvOwner)
        Me.InnerList.Add(info)
    End Sub

    Public Sub SetItem(ByVal index As Integer, ByVal value As QueryInvOwner)
        If (index < 0 Or index >= Me.InnerList.Count) Then
            Throw New Exception("index has to be between 0 and " & (Me.InnerList.Count - 1).ToString())
        Else
            Me.InnerList(index) = value
        End If
    End Sub


End Class
